function [AM_Event_Amp, AM_Event_Amp_Mean] = AM_Event_Amp_One_Animal_One_Dose(Data_Summary, AnimalID, Drug)

for n=1:size(Data_Summary,2)
    if strcmp(Data_Summary(n).animalName, AnimalID) && strcmp(Data_Summary(n).drug,Drug)
        AM_Event_Amp(n,1)=Data_Summary(n).Session1_Event_Amps_Mean;
    end
end
AM_Event_Amp(AM_Event_Amp==0)=[];
AM_Event_Amp_Mean = mean(AM_Event_Amp);

end